﻿Option Explicit On
Imports SDKCONTPAQNGLib
Module SDK_Comtabilidad
    'Declaración de variables locales
    Public gSdkSesion As TSdkSesion
    Public gSdkListaEmpresas As TSdkListaEmpresas
    Public gSdkHojaElectronica As TSdkHojaElectronica
    Public gSdkPoliza As TSdkPoliza
    Public gSdkCuenta As TSdkCuenta
    Public gSdkMovpoliza As TSdkMovimientoPoliza
    Public gAliasBDD As String


    'Procedimiento para iniciar los objetos del SDK
    Public Sub iniciaObjetosSdk()

        gSdkSesion = New TSdkSesion

        If gSdkSesion.conexionActiva = 0 Then
            gSdkSesion.iniciaConexion()
        End If

        If gSdkSesion.conexionActiva = 1 And gSdkSesion.ingresoUsuario = 0 Then
            gSdkSesion.firmaUsuario()
        End If

        If Len(gAliasBDD) = 0 Then
            MsgBox("Ninguna empresa de ContPAQ I Bancos ha sido configurada", MsgBoxStyle.Exclamation, "Aviso")
            gSdkSesion = Nothing
            Exit Sub
        End If

        gSdkSesion.abreEmpresa(gAliasBDD)

        gSdkHojaElectronica = New TSdkHojaElectronica
        gSdkPoliza = New TSdkPoliza
        gSdkCuenta = New TSdkCuenta

        gSdkCuenta.setSesion(gSdkSesion)
        gSdkHojaElectronica.setSesion(gSdkSesion)
        gSdkPoliza.setSesion(gSdkSesion)
    End Sub
    ' Procedimiento para mostrar mensajes
    Public Sub MuestraMensajeContpaq(ByVal aMensaje As String, ByVal aEstilo As Integer, ByVal aTitulo As String)
        MsgBox(aMensaje, aEstilo, aTitulo)
    End Sub

    Public Sub CerrarEmpresa()

        '// Si se creó objeto de sesión cierra la empresa
        If Not gSdkSesion Is Nothing Then
            gSdkSesion.cierraEmpresa()
        End If
    End Sub

End Module
